Public Class user_default
    Inherits System.Web.UI.Page
    Public helpaid As String = ""
    'Dim oUtils As utils
    Public aUserSession(13) As String
    Public objvalid As New gaValidation
    Public imgpath, currtURL As String
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            objvalid.getURL(Request.Url.ToString, imgpath, currtURL)
            Response.Write(buildwebContext())
        End If
       

    End Sub
    Private Function buildwebContext() As String
        Dim strHtml As String
        strHtml = "<table align=""left"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>"
        strHtml += "<font face=""verdana, arial, helvetica"" size=""2""><ul>"

        'If Session("AccessLv") = "5" Then 'TheHeader1.HasAccess(7) Then
        strHtml += "<li><a href=""./findusers.aspx"">Find / Edit User</a>"
        'End If

        'If TheHeader1.HasAccess(6) Then
        strHtml += "<li><a href=""./adduser.aspx"">Create User</a>"
        'End If

        If Session("aUserSession(oUtils.aUSerMatrix.cGAPORTAL_ID)") <> "000000" Then
            strHtml += "<li><a href=""./userpassword.aspx"">Change Password</a>"
            strHtml += "<li><a href=""./changeemail.aspx"">Change Email</a>"
        End If
        strHtml += "<br></li></ul><font></font></font></td></tr></table>"
        Return strHtml

    End Function
    
	

End Class
